home *** CD-ROM | disk | FTP | other *** search
/ Freesoft 1997 May / Freesoft_1997-05_cd.bin / inzer / minolta / drivers / WL400 / W3.1 disk 1 / UPDINI.IN_ / UPDINI.IN
Text File  |  1994-12-06  |  4KB  |  121 lines
  1. DECLARE SUB UpdateIniFiles
  2. DECLARE SUB AddVJPD
  3. DECLARE SUB AppendToIni (a$, b$, c$, d$)
  4. SUB UpdateIniFiles STATIC
  5. CursorSave% = ShowWaitCursor
  6. IF GetListItem(SYM_CUSTOMCHECKSTATES$, SOUNDFILES) = VAL_CHKON$ THEN
  7. IF InstallSpeaker% = YES% THEN
  8. FixINFIniFiles SECT_SPKRDRVINF$, WinDir$, WinSysDir$
  9. END IF
  10. FixINFIniFiles SECT_SOUNDINF$, WinDir$, WinSysDir$
  11. junk% = SendMessage (-1, WM_WININICHANGED, 0, INI_SOUNDS$)
  12. END IF
  13. IF GetListItem(SYM_CUSTOMCHECKSTATES$, DRIVERFILES) = VAL_CHKON$ THEN
  14. CopyFile WinDir$+INI_SYSTEMINI, WinDir$+FILE_SYSTEMBAK$, cmoOverwrite, 0
  15. CopyFile WinDir$+INI_WININI, WinDir$+FILE_WINBAK$, cmoOverwrite, 0
  16. sz$ = WinDir$+FILE_WPSINI$
  17. IF DoesFileExist (WinDir$+FILE_WPSINI$, femExists) <> 1 THEN
  18. i% = FREEFILE
  19. IF i% <> -1 THEN
  20. OPEN sz$ FOR OUTPUT AS # i%
  21. PRINT # i%, MSG_WPSINI_NOTE$
  22. CLOSE # i%
  23. END IF
  24. END IF
  25. sz$ = GetIniKeyString (INI_WININI$, INI_WINDOWS$, INI_NOTSELECT_TIMEOUT$)
  26. IF VAL(sz$) < 45 THEN
  27. CreateIniKeyValue INI_WININI$, INI_WINDOWS$, INI_NOTSELECT_TIMEOUT$, "45", cmoOverwrite
  28. END IF
  29. IF InstallPM% = YES% THEN
  30. IF IniKeySpooler% = 1 THEN
  31. CreateIniKeyValue INI_WININI$, INI_WINDOWS$, INI_SPOOLER$, INI_YES$, cmoOverwrite
  32. END IF
  33. bInstallPM% = TRUE
  34. ELSE
  35. bInstallPM% = FALSE
  36. END IF
  37. CreateIniKeyValue INI_WININI$, INI_WINDOWS$, INI_DOSPRINT$, LCASE$(INI_NO$), cmoOverwrite
  38. FixPrinterIniFiles bInstallPM%
  39. FixINFIniFiles SECT_DRIVERINF$, WinDir$, WinSysDir$
  40. AddVJPD
  41. AppendToIni INI_WININI$, INI_WINDOWS$, INI_RUN$, WinDir$+TestPageDir$+"\"+INI_TESTPAGE$
  42. AppendToIni INI_WININI$, INI_WINDOWS$, INI_RUN$, WinSysDir$+INI_IOMON$
  43. junk% = SendMessage (-1, WM_WININICHANGED, 0, INI_WINDOWS$)
  44. sz$ = ""
  45. END IF
  46. IF CursorSave% <> 0 THEN
  47. RestoreCursor(CursorSave%)
  48. END IF
  49. CursorSave% = 0
  50. END SUB
  51. SUB AddVJPD STATIC
  52. DIM bDoDevice%, bNotFoundVpd%, bNotFoundVcomd%
  53. szFile$ = WinDir$+INI_SYSTEMINI
  54. szSect$ = INI_386ENH$
  55. RemoveSymbol SYM_TEMPLIST$
  56. szL$ = INI_LPT$
  57. szA$ = INI_AUTOASSIGN$
  58. FOR i% = 1 TO 3
  59. szKey$ = szL$ + MID$(STR$(i%), 2, 1) + szA$
  60. IF DoesIniKeyExist(szFile$, szSect$, szKey$) = 0 THEN
  61. CreateSysIniKeyValue szFile$, szSect$, szKey$, "0", cmoVital
  62. END IF
  63. NEXT
  64. bDoDevice = TRUE
  65. bNotFoundVpd = TRUE
  66. bNotFoundVcomd = TRUE
  67. WHILE bDoDevice
  68. sz$ = STRING$(48, 64)
  69. i% = GetPrivateProfileString(szSect$, INI_DEVICE$,"@",sz$, 48, szFile$)
  70. szL$ = LCASE$(sz$)
  71. IF (i% = 1) AND (sz$ = "@") THEN
  72. bDoDevice = FALSE
  73. ELSEIF szL$ = "" THEN
  74. AddListItem SYM_TEMPLIST$, sz$
  75. RemoveIniKey szFile$, szSect$, INI_DEVICE$, cmoVital
  76. ELSEIF szL$ = FILE_WPSLJVPD$ THEN
  77. bNotFoundVpd = FALSE
  78. IF bNotFoundVcomd = FALSE THEN
  79. bDoDevice = FALSE
  80. ELSE
  81. AddListItem SYM_TEMPLIST$, sz$
  82. RemoveIniKey szFile$, szSect$, INI_DEVICE$, cmoVital
  83. END IF
  84. ELSEIF szL$ = FILE_VCOMD$ THEN
  85. bNotFoundVcomd = FALSE
  86. IF bNotFoundVpd = FALSE THEN
  87. bDoDevice = FALSE
  88. ELSE
  89. AddListItem SYM_TEMPLIST$, sz$
  90. RemoveIniKey szFile$, szSect$, INI_DEVICE$, cmoVital
  91. END IF
  92. ELSE
  93. IF (szL$ <> "vpd.386") AND (szL$ <> "vjpd.386") AND (szL$ <> "*vpd") AND (szL$ <> "vlexcomd.386") THEN
  94. AddListItem SYM_TEMPLIST$, sz$
  95. END IF
  96. RemoveIniKey szFile$, szSect$, INI_DEVICE$, cmoVital
  97. END IF
  98. WEND
  99. i% = GetListLength(SYM_TEMPLIST$)
  100. FOR j% = i% TO 1 STEP -1
  101. CreateSysIniKeyValue szFile$, szSect$, INI_DEVICE$, GetListItem (SYM_TEMPLIST$, j%), cmoVital
  102. NEXT j%
  103. IF bNotFoundVpd THEN
  104. CreateSysIniKeyValue szFile$, szSect$, INI_DEVICE$, FILE_WPSLJVPD$, cmoVital
  105. END IF
  106. IF bNotFoundVcomd THEN
  107. CreateSysIniKeyValue szFile$, szSect$, INI_DEVICE$, FILE_VCOMD$, cmoVital
  108. END IF
  109. szL$ = ""
  110. szA$ = ""
  111. szFile$ = ""
  112. szSect$ = ""
  113. RemoveSymbol SYM_TEMPLIST$
  114. END SUB
  115. SUB AppendToIni (szFile$, szSect$, szKey$, szVal$) STATIC
  116. FRemoveValFromIniKey szFile$, szSect$, szKey$, szVal$
  117. oldVal$ = GetIniKeyString (szFile$, szSect$, szKey$)
  118. CreateIniKeyValue szFile$, szSect$, szKey$, oldVal$+" "+szVal$, cmoOverwrite
  119. oldVal$ = ""
  120. END SUB
  121.